View on GitHub

Cljperl

CljPerl is a lisp on Perl.

Download this project as a .zip file Download this project as a tar.gz file

CljPerl

CljPerl is a Lisp implemented by Perl. It borrows the idea from Clojure, which makes a seamless connection with Java packages. Like Java, Perl has huge number of CPAN packages. They are amazing resources. We should make use of them as possible. However, programming in Lisp is more insteresting. CljPerl is a bridge between Lisp and Perl. We can program in Lisp and make use of the great resources from CPAN.

Key features

Example

;; file t.clp
(defmacro defn [name args & body]
  `(def ~name
     (fn ~args ~@body)))

(defn foo [arg]
  (println arg))

(foo "hello world!") ;comment here

(foo (+ 1 2))

(.CljPerl print "Hi\n")

(. print "Guy\n")

(defmulti mf type)
(defmethod mf "string" [a] (println "string"))
(defmethod mf "keyword" [a] (println "keyword"))
(mf "test")
(mf :test)

(def c (coroutine
  (println "b")
  (coro-sleep)
  (println "d")))

(println "a")
(coro-resume c)
(println "c")
(coro-resume c)


(def a (actor
  (println "a")
  (actor-send (actor-receive) "exit")
  (println "b")))

(actor-send a (actor-self))
(println (actor-receive "exit")

------------------

> bin/cljp t.clp

Install

cpan install CljPerl

Lisp <-> Perl

CljPerl is hosted on Perl. Any object of CljPerl can be passed into Perl and vice versa including code.

An example of using Perl's IO functions.

# Perl functions in CljPerl.pm
package CljPerl;

sub open {
  my $file = shift;
  my $cb = shift;
  my $fh;
  open $fh, $file;
  &{$cb}($fh);
  close $fh;
}

sub puts {
  my $fh = shift;
  my $str = shift;
  print $fh $str;
}

sub readline {
  my $fh = shift;
  return <$fh>;
}
# CljPerl functions in core.clp
(ns file
  (defn open [file cb]
    (. open file cb))

  (defn >> [fh str]
    (. puts fh str))

  (defn << [fh]
    (. readline fh)))
# Test
(file#open ">t.txt" (fn [f]
  (file#>> f "aaa")))

(file#open "<t.txt" (fn [f]
  (println (perl->clj (file#<< f)))))

An advanced example which creates a timer with AnyEvent.

(. require AnyEvent)

(def cv (->AnyEvent condvar))

(def count 0)

(def t (->AnyEvent timer
  {:after 1
   :interval 1
   :cb (fn [ & args]
         (println count)
         (set! count (+ count 1))
         (if (>= count 10)
           (set! t nil)))}))

(.AnyEvent::CondVar::Base recv cv)

Another example which uses AnyEvent::HTTPD to create a http server.

(require anyevent-httpd)

(anyevent-httpd#start-server {:port 9090}
  {"/"     #[html #[body #[h1 "Hello World!"] #[a ^{:href "/test"} "Another test page"]]]
  "/test"  #[html #[body #[h1 "Test page"] #[a ^{:href "/"} "Back to the main page"]]]})

Documents

See APIs.md

Quoi

Quoi is a simple web framework by CljPerl.

APP : app.clj

; load quoi
(require quoi)

; load quoi menu utils
(require quoi/menu)

; create a menu
(def menu (quoi#menu
  ["Home" "home" (quoi#file "index.clp")]
  ["About" "about" (quoi#file "about.clp")]))

; set the index page.
(quoi#page "/$"
  (quoi#file "index.clp"))

(quoi#start {:port 9090})

Template : index.clp

#[span
  #[h1 "hello world"]
  #[p "url: " (#::path S)]
  #[p "method: " (#::method S)]
  #[p "params: " (clj->string (#::params S))]
  #[p "headers: " (clj->string (#::headers S))] 
  menu]

Run

bin/cljp app.clj

XML selector/translator

($ "#foo" #[html "hello" #[a ^{:id "foo"} "foo"]]
  (fn [xml]
    #[a "bar"])) ; <html>hello<span>bar</span></html>

($ "[id=foo]" #[html "hello" #[a ^{:id "foo"} "foo"]]
  (fn [xml]
    #[span "bar"])) ; <html>hello<span>bar</bar></html>

Quoi demo